home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00042.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  527 b   |  26 lines

  1. on redraw
  2.   global rdr
  3.   if the visible of sprite 3 = 1 then
  4.     set the visible of sprite 3 to 0
  5.   end if
  6.   set rdr to random(6)
  7.   if rdr = 1 then
  8.     mouseWithin(script "nx rotate")
  9.   end if
  10.   if rdr = 2 then
  11.     mouseWithin(script "ny rotate")
  12.   end if
  13.   if rdr = 3 then
  14.     mouseWithin(script "nz rotate")
  15.   end if
  16.   if rdr = 4 then
  17.     mouseWithin(script "n mapercontrol")
  18.   end if
  19.   if rdr = 5 then
  20.     mouseWithin(script "n mapercontrol")
  21.   end if
  22.   if rdr = 6 then
  23.     mouseWithin(script "n mapercontrol")
  24.   end if
  25. end
  26.